
if( ! open(FICBOOK,">KARAOKE_BOOK.txt") ) {
  exit(1);
}

# opendir DIR, "H:/Karaoke/Francais";
opendir DIR, "G:/Anglais";
my $Previous_Chanteur = "";
my $Previous_Titre = "";
my $taillechamp=43;
print "coucou";

while ( $filename = readdir(DIR) ) {
	my @Chanteur_Titre = ("","");
	@Chanteur_Titre = split /-/,$filename;
	# print "zero $Chanteur_Titre[0]  -  un $Chanteur_Titre[1] \n";
	if (!( exists( $Chanteur_Titre[1] ) )) {
	   $Titre = $Chanteur_Titre[0];
	   $Chanteur = "divers";
	}
	else
	{
	  $Chanteur = $Chanteur_Titre[0];
	  if ( exists ( $Chanteur_Titre[2] ) ) {
	    $Titre = $Chanteur_Titre[1]."-".$Chanteur_Titre[2];
	  }  
	  else
	  { $Titre = $Chanteur_Titre[1];}
        }

	
# On met les premières lettres en majuscule	

       my @Chanteur = split(/ /,$Chanteur);
       print " Chanteur : $Chanteur \n\n";
       my $i = 0;
       print " i : $i";
       $Chanteur = "";
       while (<@Chanteur>) {
   	  $Chanteur[$i] = ucfirst ($_);
          $Chanteur .= " ".$Chanteur[$i];
	  $i++;
	}	
	
       # $Chanteur =~ s{\b(.+?)\b}{ucfirst($1)}ge;
    	$Titre =~ s/^(.{0})(.)/$1\U$2/;
	
# On supprime les types de fichiers	
	$Titre =~ s/\.avi//;
	$Titre =~ s/\.mp4//;
	$Titre =~ s/\.flv//;
        $Titre =~ s/\.kar//;
        $Titre =~ s/\d?$//;
	
        if (($Titre eq ".") || ($Titre eq "..") || ($Titre eq "Karaoké")) {next;}

	printf ( FICBOOK "%-43s %-30s \n", $Chanteur,$Titre);
	#printf ( FICBOOK "$Chanteur  $Titre\n");
}

close (FICBOOK);
if( ! open(FICBOOK,"KARAOKE_BOOK.txt") ) {
  exit(1);
}
$i=0;
while (<FICBOOK>) {
	$Fichiertri[$i] = $_;
	$i++
}	
close (FICBOOK);
if( ! open(FICBOOK,">KARAOKE_BOOK1.txt") ) {
  exit(1);
}
	
@fichiertriout = sort @Fichiertri ;
$previous_line="";
foreach (@fichiertriout) {
	print $_;
	# On saute une ligne entre chaque chanteur	
	if (!($previous_line eq substr($_,0,$taillechamp))) {
	  if (!($_ =~ m/Duo/)) {
  	    print (FICBOOK "\n"); 
	  }
	}
	$new_titre = lc(substr($_,$taillechamp,10));
	print ("new : $new_titre  - previous : $previous_titre\n");
	if (!($previous_titre eq $new_titre)) {
		printf ( FICBOOK $_);
	}
	$previous_line=substr($_,0,$taillechamp);
	$previous_titre=$new_titre;
}
closedir DIR;
close (FICBOOK);

